100 CLR:DIMTS$(20):DIMBL$(20) 110 TS$(1)="05 05":BL$(1)="052" 120 TS$(2)="19 17":BL$(2)="043" 130 PRINT"INSERT DISK - SIDE 1"CHR$(13)"PRESS ANY KEY !" 140 POKE198,0:WAIT198,1:POKE198,0 150 VA=43:I=1:GOSUB210 160 A$="UNLIMITED CREDITS":I=2:GOSUB180 170 END 180 PRINT""A$" ON[146]/OF[146]F" 190 GETA$:IFA$<>"N"ANDA$<>"F"THEN190 200 VA=36:IFA$="F"THENVA=198 210 OPEN2,8,15:OPEN1,8,2,"#" 220 PRINT#2,"U1 2 0 "+TS$(I) 230 PRINT#2,"B-P 2 "+BL$(I) 240 PRINT#1,CHR$(VA); 250 PRINT#2,"U2 2 0 "+TS$(I) 260 CLOSE2:CLOSE1 270 RETURN